1 IFX=0THENPRINT"[147]BOOTING ALFREDO...":POKE53281,0
5 IFX=0THENX=1:LOAD"UNPACKER",8,1
6 IFX=1THENX=2:LOAD"ALFREDO.TITLE.SHP",8,1
7 IFX=2THENX=3:LOAD"HI-RES TEXT.O",8,1
10 POKE249,224:POKE250,204
20 POKE251,0:POKE252,64
30 POKE253,0:POKE254,0
35 POKE53281,0
50 SYS51456
60 SYS51459
70 F$="ALFREDO"
75 P$=CHR$(34)+"PRESS ANY KEY"+CHR$(34):T$="S[217]50759,"+P$+",14*8,24*8"
80 POKE646,PEEK(53281):PRINT"[147]LOADF$,8"
81 PRINT""T$;
83 PRINT":P[207]816,165:P[207]817,244:P[207]198,0:W[193]198,1:S[217]51459:R[213]"
84 POKE631,13:POKE632,13:POKE198,2:END